home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Graphics / Random Graphics / Funny Day / card_3015.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  2.5 KB  |  128 lines
  1. -- card: 3015 from stack: in
  2. -- bmap block id: 7577
  3. -- flags: 0000
  4. -- background id: 2592
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   global switch
  9.   global count
  10.   put 50 into count
  11.   put 0 into switch
  12.   hide menubar
  13.   show button "About"
  14. end openStack
  15. on idle
  16.   global count
  17.   global switch
  18.   if switch is 1 then
  19.     if count is not 50 then go next
  20.   end if
  21. end idle
  22.  
  23.  
  24.  
  25.  
  26. -- part 4 (field)
  27. -- low flags: 81
  28. -- high flags: 0004
  29. -- rect: left=268 top=54 right=189 bottom=432
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 2
  34. -- text size: 14
  35. -- style flags: 0
  36. -- line height: 18
  37. -- part name: Message
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   hide card field "Message"
  41.   show button "About"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 7 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=27 top=34 right=66 bottom=86
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Start
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   global count
  61.   global switch
  62.   put 1 into switch
  63.   put 50 into count
  64.   hide button "About"
  65.   hide card field "Message"
  66.   play "Harpsichord" tempo 150 g4 a b d5 d e d b4 g a b b a g aq
  67.   play "Silence" tempo 150 c c
  68.   play "Harpsichord" tempo 150 g a b d5 d e d b4 g a b b a a gq
  69.   play "Silence" tempo 150 c c
  70.   play "Harpsichord" tempo 150 c5 c c e e e e d d b4 g aq
  71.   play "Silence" tempo 150 c c
  72.   play "Harpsichord" tempo 150 g4 a b d5 d e d b4 g a b b a a g4q
  73.   go next
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 10 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=408 top=52 right=82 bottom=473
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Next
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   global switch
  93.   put 2 into switch
  94.   visual effect dissolve
  95.   go next
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 12 (button)
  101. -- low flags: 80
  102. -- high flags: 0000
  103. -- rect: left=264 top=97 right=136 bottom=305
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 14767 / 14767
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: About
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   hide button "About"
  115.   show card field "Message"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part contents for card part 4
  121. ----- text -----
  122.  
  123.      " Funy day "  v1.0 
  124.  
  125.   Please click a cloud !
  126.  
  127.    ¬© Kunihito. Koike
  128.          12/6/1987